supplied-by
: umax ( u1 u2 -- u3 )  2dup u< if swap then drop ;
